-- card: 11673 from stack: in
-- bmap block id: 26343
-- flags: 0000
-- background id: 2665
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=329 top=140 right=162 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SELFED
----- HyperTalk script -----
on mouseUp
  delete line 1 of card field F1
  delete line 1 of card field F2
  repeat 32 times
    put random of 16 into it
    if it <=4 then add 1 to card field F2
    else add 1 to card field F1
  end repeat
  add the value of card field F1 to card field F3
  add the value of card field F2 to card field F4
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=348 top=194 right=214 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F1


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=348 top=219 right=239 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F2


-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=348 top=266 right=286 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F3


-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=348 top=293 right=313 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F4


-- part 6 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=338 top=27 right=47 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RESET
----- HyperTalk script -----
on mouseUp
  put 0 into card field F1
  put 0 into card field F2
  put 0 into card field F3
  put 0 into card field F4
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=323 top=316 right=338 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CHI SQUARE
----- HyperTalk script -----
on mouseUp
  global bagone
  global bagtwo
  put the value of card field F3 into "bagone"
  put the value of card field F4 into "bagtwo"
  go to card id 25732
  put 0 into card field class1
  put 0 into card field class2
  put 0 into card field class3
  put 0 into card field class4
  put 0 into card field F5
  put 0 into card field F6
  put 0 into card field F7
  put 0 into card field F8
  put bagone into card field "CLASS1"
  put bagtwo into card field "CLASS2"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=171 top=315 right=337 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SUB HEADINGS
----- HyperTalk script -----
on mouseUp
  go to card id 9665
end mouseUp




-- part contents for background part 1
----- text -----
MONOHYDRID CROSS

-- part contents for background part 2
----- text -----
The final cross of this group involves the nature of pea seed coats. If you cross true breeding plants with smooth (wild) skins with those that breed true for wrinkled skin, the F1 are all smooth. Selfing the F1 produces an F2 in which the coats are divided between smooth and wrinkled. Run the program several times until you are sure of your data. Then test it with the Chi Square program. Remember, RESET clears all the windows. SELFED when repeatedly activated clears only the windows of the immediate cross.

-- part contents for card part 2
----- text -----
24

-- part contents for card part 3
----- text -----
8

-- part contents for card part 4
----- text -----
24

-- part contents for card part 5
----- text -----
8